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(3) 17 DECLARAT 

(4) 1 RMSEXPSTRING, Build Expanded or Resultant Name String 

(11) 101 RMSGETFILN uild Resultant File Name for Journal ing 

£38} 1 RMSF ILLNAM, dutput Resultant File Name and other NAM Fields 
(13) 114 RMSWRITE_DVI, Write DVI field of NAM block 

(14) 1193 RMSCHKNAM, Check NAM Block Validity 
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Me SBEGIN RMONAMSTR,000,RMSRMSO,<RETURN FILENAME STRINGS> 
000 é t Seeteneeneeqennesernreeneesceenseqenenreensorerecedeqesqeeseneseseeeseereets 
3* * 
000 6 ;* Seth te MN (2 1978, 1980, 1982, 1984 BY * 
88 7 3* DIGITAL pen _GORPORATION, MAYNARD, MASSACHUSETTS. * 
8 8 a ALL RIGHTSCR * 
: 7 
44 10 ;* THIS SOFTWARE i FURNISHED UNDER A LICENSE AND MAY BE USED AND og * 
00 11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH T x 
St \¢ 3* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
15 ;* COPIES THEREOF ot NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 14 ;* OTHER PERSON. O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 1? - TRANSFERRED. * 
$ © 
0000 17 ;* THE ae ae IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i444 }} 3* CORPORATION. * 
3* ry 
0000 21 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE Of RELIABILITY OF ITS * 
0000 22 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 $7 3* * 
0000 4 ;* * 
0000 25 "inetd hada i 
0000 26 ; 


C 4 
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000 28 i+ | 
300 «$0 Facility: RMS | 
3 Fac : 
2099 >: Abst | 
; Abstract: 
500088 | : | 
0000 4; This module builds either an expanded name etre or a resultant | 
0000 5 3 name string (as requested on entry) and returns it to the user via 
B06 38 : the Name Block. 
44s Hy Environment: VAX/VMS, executive mode 
0090 rif : Author: Leo F. Laverdure, Creation Date: 01-MAR-1977 
0000 4g : Modified By: 
0000 43 ; 
0000 44 ; V03-019 ywT0192 Jim Teague 12-Aug-1984 
0000 45 ; Fix a terrible bug in filename-Length nig 
0000 46 ; RMS was doing unsigned, one-byte compares against 
0000 47 ; the users's ESS or RSS, and taking an error path | 
0090 48 ; if the accumulated size was greater than that. 
0000 949 ; Fine, ysual ly However, if the user specified 255 
0000 50 ; for ESS or RSS, how many one-byte values can /0U 
44464 2] 3 think of that are greater than ‘FF‘? | 
0000 2g : v03-018 RASO0296 Ron Schaefer 18-Apr-1984 
0000 54; Return secondary device name in NAMST_DVI if the 
464 2? 3 device is spooled. | 
0000 57; v03-017 JEJ0029 J E Johnson 19-Apr-1984 | 
0000 58 ; Remove wildcard status storage for quoted network 
0000 39 8 files as that has been moved to NTOACCESS, also 
0000 60 ; replace reference to NAMSV_ROD with NAMS$V_PWD as 
0008 6] 3 someone actually used the function it provided. 
0000 $3 : V03-016 JEJ0027 J E& Johnson 11-Apr-1984 
4444 rf ; Eliminate unused reference to NAM$V_ROD field. 
0000 «66: V03-015 JEJ0006 J E& Johnson 08-Mar-1984 
0000 67 ; Store the wildcard status on qucted network files. 
4464 rt: ; Also slight code cleanup done. 1 
0000 70; V03-014 RASO254 Ron Schaefer 16-Feb-1984 
44 71 ; Return as many fields as possible in expanded/resultant 
00 i 3 strings for PPFs. Add SDEVDEF and SRMSDEF macros. 
0000 73; Cleanup use of ESA/RSA device name when doing open 
448 Re 3 by device-id/file-id as well as network FAL returns. 
6000 76; V03-013 RASO223 Ron Schaefer 16-Dec-1983 
4 oe ; Change $SCBDEF and SCB$xxx to SFSCBDEF and FSCB$xxx. 
0900 i: ; v03-012 RASO0203 Ron Schaefer 18-0c t-1983 | 
000 80 ; Fix network node processing to only mask out the 
0900 1 : password for the first node in the List. 
4 : : v03-011 KRMO115 Karl Malik _ 27-Sep-1983 
000 Ss Add UPDATE_FNB routine to set appropriate FNB bits 


RMONAMSTR 
v04-000 ~SEP-1984 RMS.SRCJRMONAMSTR.MAR; 1 
fur ine a network $search (currently not returned 

by FAL). 


v03-010 5 pda yy B. Thompson 21-Jul-1983 
onge eegnt ax 3 non=concealed name to: 
bev, foots ] eet Say 


v03-009 EPL ggUT Peter Lieberwirth 23-Jun-1983 
Modify RMSGETFILNAM to return the unconcealed (real) 
device name as well as the rest of the file spec. 


v03-008 KBT0516 Keith B. Thompson 23-May-1983 
Remove the RMSCHKNAMBLE hack 
v03-007 KBT0506 Keith B. Thompson 33-May-1983 


Change SCBSM Accs to SCBSM_ACS and add some Zoncealed 
device/directory features? 


v03-006 dle + Keith B. Thompson 18-Apr-1983 
Use SCB flags to check to access control string in 
node descriptor 


v03-005 LJA00Ss Laurie J. Anderson 22-Feb-1983 
Move some routines related to — NAM block to this 
module, for ye nF sake and ease of locating them. 
They include RMSFILLN RMSURITE DVI, RMSCHKNAMBLK 
and RMSCHKNAM. Note, ony audit trails corresponding to 
mods to these routines did NOT move with these modules. 


VO3-004 JWHO188 Jeffrey W. Horn 15-Feb-1983 
Add an additional one point RMSGETFILNAM to return 
the resultant name string to a buffer for journaling. 


Sooo ococcoooooooooooooooooooooooooooCooooOoOoOoOoOOOO OOOO OOOOOOoOO 
a ee a ad ed dd dd dd = dS 8 

HP AAAAAA AIAN PIDIPNINPINPINNNINI 9 OO OS S| DODO QDQOOCOOCOCWOOOOOOOO-0O 

=—=OOO NAN EWI 0 OD NAME WIN | O OD NAU EW 0 OO NOAU EWI $$ O OO NOAUE WN OOONOMW 
PPE TE TESTE SE IOOSO OSTEO Ie Ieee eee Ieee ee ree rere rerererererererererere rere rere rere rere rere re rere rere 


v03-003 KBT0211 Keith B. Thompson 23-Aug-1982 
Reorganize psects 
v03-002 KBT0099 Keith 8B. Thompson 13-Jul-1982 
Clean up psects 
v03-001 JAK0073 J A Krycka 12-Apr-1982 
0 Eliminate the meaetioe’ of gt thay a <del> cheracter to an 
00 expanded or resultant name string to indicate that the password 
00 has been masked out of the nodespec. 
50 v02-090 KEKO18 . E. Kinn 17-Jan-1982 
4 Add attest tent” for ANSI=""a ~ magtape filespecs. 
00 v02-089 KEK0019 K. E. Kinnea 17-Jan-1982 
100 Remove references to NAM$B “QUOTED and NAMSL “QUOTED and 
38 replace with references to NAM$x_NAME. 
4 v02-088 snooot Jeffrey W. Horn 16-Dec-1981 
If FWASV_DIR bit” ‘s clear, return C) as directory 
4 specification. 
09 v02-087 RASOOS? Ron Schaefer 25-Sep-1981 
0 Return the ESA device name string if the Ov “Tevice name 
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was used, This hides the hidden Geyice name for 
users doing explicit SPARSE before SOPEN or S$CREATE. 


V02-086 JAK0062 A Krycha 14-AUG-1981 
Return remote tile oe type in NAMSB_RFS. 

v02-085 JAK0059 11-JUN-1981 
Multiplex the avore” ocr tpier in the NAM block with the 
NAME descriptor instead of the DEV descriptor. 

v02-084 JAK0058 eeycka 04-JUN-1981 
Continuation of v02-08 

v02-083 KRMO015 Malik 26-May-1981 


Fix bug in RMSEXPSTRING which returned incorrect values 
tor the extended NAM block TYPE and VER fields. 


v02-082 JAK0058 J A Kry 22-MAY-1981 
This module was created. a RMSEXPSTRING code previously 
residing in RMOXPFN. 


The following edit history entries were copied from RMOXPFN: 


v02-081 le Malik 11-MAY-1981 
l in the WPF NAM block fields with the resultant 
Aen string filespec elements for a resultant name string 
that was received from the remote FAL. 


v02-078 KRM0013 Malik 22-APR-1981 
Make RNSEXPSTRING Rite in the extended NAM block fields with 
the addresses & lengths of the various filespec elements 
of the expanded or resultant name string (as appropriate for 
the operation). 
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ne STRINGS 

17 ~SBTTL DECLARATIONS 
i 

181 ; Include Files: 

1 § : 

i 4 SDEVDEF 

133 $F ABDEF 

186 $F IBDEF 

13 $FSCBDEF 

1 SFWADEF 

SIFBDEF 

1 SLOGDEF 

191 SNAMDEF 

136 SNWADEF 

19 SPSLDEF 

194 SRMSDEF 

195 

196 ; 

197 ; Macros: 

198 ; 

199 ; None 

00 ; 

01 ; Equated symbols: 

f 3 

03 ; 

spe ; 

05 

soo FOP=F ABSL_FOP*8 
208 SPACE = *X20 
209 HOR_TAB = *x09 


CRESTOR AEBEBE MRL Seana 


Page 
RMS .SRCJRMONAMSTR.MAR; 1 . 3) 


Device characteristics 
: File Access Block symbols 
; Define File Information Block 
; FSCB symbols 

File Work Area symbols 
2 s 
; Define Logical Name Table symbols 
; Define Name Block symbols 
; Define Network Work Area symbols 
; Define Process Status Longword symbols 
; Define RMS error codes 


BeBe Be Se Se Se Se Se Se Bee 
= 
@ 
—~ 
~ 
=] 
eo 
eel 
ea | 


The following symbol definitions were copied from RMOXFPN: 


; Bit offset to FOP 


; ASCII value for space 
; ASCII value for horizontal tab 


RMC 
V04 


Completion Codes: 
Standard RMS completion codes, including SUC, ESA, ESS, RSA, RSS, NAM. 
89 3; Side Effects: 


] 
RMONAMSTR RN FILENAME STRINGS 16-SEP-1984 00:27: AX/VMS Macro v04-00 Pa 
yOen000 XPSTRING, Build Expanded or Resultan Sets 7 90:35:68 RMS.SRCJRMONAMSTR.MAR; 1 ™ (2) | 
1 .SBTTL RMSEXPSTRING, Build Expanded or Resultant Name String | 
i$ s+ | 
; 
15 ; RMSEXPSTRING - examines the user’s NAM block for an expanded name ageing or 
0 1§ 3 resultant name string buffer, and if found builds the string in the 
8 v3 buffer utilizing the separately parsed elements stored in the FWA and 
0 18 $ NWA control blocks. 
$335 $5 | cuttin 
3; Calling Sequence: 
000 e . 
8308 § 3 BSBW RMSEXPSTRING 
0000 4: Input Parameters: 
000 23 
000 § : R7 NAM block address 
B08 3 R8 FAB address 
00 8: R9 FAB address 
0000 9; R10 FWA address 
0000 0; AP Address of 5-byte argument List of the format: 
0000 13 byte offset to either NAMSL_ESA or NAMSL_RSA 
0000 é : RMSERR_WORD NAM$_ESA (or _RST) 
9000 33 : RMSERR_WORD NAMS-ESS (or RSS) 
0000 35 ; Implicit Inputs: 
0000 $$ ; 
0000 7 3 The current contents of the FWA. 
0000 38 : FABSL_NAM, NAMSL_ESA (or _RSA), NAMSB_ESS (or _RSS) 
Bo08 9; NAMSB_BID, NAM$B_BLN 
000 40 ; 
0000 41 ; Outputs: 
0000 42 ; 
0000 4? ; RO Status code 
0000 44; R1i-R7 Destroyed 
0000 45; AP Destroyed 
0000 46 ; 
0000 47 ; Implicit Outputs: 
0000 48 ; 
0000 49 ; If the specified buffer exists, the buffer is filled in with the 
0000 50 ; expended or resultant name string, and its length is stored in the 
44 é} 3 NAM$B_ESL or NAMSB_RSL field, as appropriate. 
itd 36 3 If the NAM$B_BLN field indicates that this is an extended NAM block 
099 2 3 then the following filespec element fields are also filled in: 
0 2$ 3 NAM$B_NODE NAMSL_NODE 
000 57; NAM$B_DEV NAMSL~DEV 
0 58 ; NAM$B_DIR NAMSL“DIR 
00 259; NAM$B_NAME NAMSL ~NAME 
0 60 ; NAM$B_ TYPE NAMSL—TYPE 
o] : NAM$B_VER NAMSL_VER 
8 3 
29 


a 
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Pe) 
= 
bad 
mn 
cad 
vz 
“ 


If a NAM block exists it will have been probed. 


ASSUME NAMS$B"TYPE+1 EQ NAMS$B_VE 


45$: CMPB NAMSB_BLN(R7) ,#NAMSC_BLN; Is this an extended NAM block? 
$ ; Branch if not 

MOVZBL NAMSB_DEV(R7),RO ; Get ESA device name len 

MOVL NAMSL_DEV(R7) ,R1 ; and ptr 


CLRQ NAM$B_NODE (R7) ; Initialize all 
MOVL Rg :hanstbevt 


(R 
NAMSL-DEV(R7 
/NAMSL-DIR(R7 


60 8F O1A7 91 
54 


51 44 A7 00 
38 A?) = 7C filespec element 
§ Length fields with a count of zero 
?) ; Initialize all filespec element 
) ; address fields with the address 
) ; of the start of the user buffer 


Fl 
TRING, 
$3 
49 
58 
74 ; Return the expanded or resultant name string to the user buffer and, if this 
Ne ; is an ‘extended’ NAM block, fill in the various filespec element fields. 
000 579 
00 4 RMSEXPSTRING:: 
0594 +3 38 7 BSBW ye) ee ; validate NAM block 
01 50 3 80 BLBS rRO,5$ ; if ok continue 
Boos + RSB 3; else exit now 
0007 § ASSUME NAMSL_ESA EQ NAM$B_ESL+1 
0007 4 ASSUME NAM$B_ESL EQ NAM$B_ESS+1 
oi 5 ASSUME NAMSL_RSA EQ NAMS$B_RSL+1 
oa 6 ASSUME NAMSB_RSL EQ NAM$B_RSS+1 
0900 8F BB 0007 88 5$: PUSHR #*M<RB,R11> 3 save registers 
53 BC 9A 0008 389 OVZBL (AP)+ KS i get offset to ESA or RSA field 
—. 2 C1 000 90 ADDL R3,R7,R8 3; and use to compute address 
53 68 00 001 91 MOV (RB) ,R3 : Get address of buffer 
10 13 001 38 BEQL $ : Branch if non-zero 
54 FE AS QA ple 9 MOVZBL <-2(R8),R4 : Get buffer size 
OA 13 0018 94 BEQL 20$ - Branch if non-zero 
08 00 BE 38 +€;—1 001D 95 8 #FABSV_NAM+FOP,@0(SP),30$; Branch if not open by Name Block 
24 A? be 00 ¢ 96 TSTL NAM$W_FID(R7) ; File ID input? 
03 13 00 97 BEQL 3 : Branch if not 
0100 31 0027 98 208: BRW EXIT_SuC 3; Branch, omitting directory 
002A 99 - and file name 
002A 300 30S: IFWRT R4,(R3),40$, 1FB$B_MODE(R9) 
O1CE 31 0031 01 BRW ERRSA ; Branch if no write access 
78 94 0034 02 40$: CLRB -(R8) ; Clear ESL (or RSL) 
one 0 
$036 30 
0036 3 : If this is an ‘extended’ NAM block, initialize the filespec element fields. 
0036 6308 ° 
0036 0 ASSUME NAMSB_NODE+1 EQ NAMSB_DEV 
0036 «(31 ASSUME NAMSB~DEV+1 EQ NAM$B_DIR 
; 1 ASSUME NAMSB_DIR+1 EQ NAM$B_NAME 
O36 : NAMSB NAME +1 EQ NAM$B_TYPE 
Be 
0 1 
OO88 3] 
041 1 
045 1 
0 : 


FARO OONOA NEW  O ODA Win 
> 
“ 
wn” 
Cc 
= 
m 


MERLE 


MOVL R 
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+4 A7 D 4 5 MOVL R3,NAMSL_NAME (R7) "abe 
2 A? D 8 $ MOVL R3,NAMSL-TYPE(R7) - 
4 a7 b MOVL R35,NAMS$L_VER(R7) ‘. 
06) 359 
$e 0 ; If the DVI device name was used, and an ‘extended NAM block’ is present, 
6 1 ; and there is a non-zero DEV field; hen use the DEV fielc as the device 
06 ¢ 3; name and not the Ovi name. This hides the expansion of hidden devices. 
06 ; Copy the device string to the unused concealed device buffer and set 
$e 4 ; it from there. If saved field is zero or inaccessible, fall back on DVI. 
é 5 3; Can't be a network filespec if the DVI was used. 
2D 6A 9 £0 369 8 BBS #FWASV_SL_PASS,(R10),503; branch if search List pass 
28 00 BE E1 0064 9 BBC #F ABSV_NAR+F OP. a0(SPS 50$:; Branch if not open by Name Block 
24 6A 05 é] 0069 340 BBC #FWASV-NAM BVI. (R10) , 508; branch if not using dvi 
14 A? 44 41 TSTB NAMST_BV1(R7) ; Did we have a DVI? 
1F 13 00 3 tg BEQL 50$ ; Branch if not 
50 07 007 4. DECL RO : eliminate ‘':' 
18 1B 0074 44 BLEQU§ 50$ ; Ignore null or bogus field 
0076 45 IFNORD RO,(R1),50$,1FB$8 MODE (R9) 3; Can we read it? 
56 O0E8 CA 9E 007D 346 MOVAB FWAS$Q_CONCEAL_DEVTR10),.R6 ; Get device descriptor 
66 50 00 0082 47 MOVL RO, (RO) ; Set Length 
53 DD 008 48 PUSH R ; Save output ptr 
04 B86 61 50 28 0087 49 MOVC RO, (R1) ,a4(R6) 3; Copy string 
53 8EDO 008C 50 POPL i restore ptr 
1¢ 38611» «=O08F 51 BRB COPY_DvI : join device copy code 
0091 383 
a091 22 3; Check for the occurrence of a node name (and possilby a quoted string). 
0091 356 ° 
6A 19 €1 0091 57 50$: BBC #FWASV_NODE,(R10),- ; Check for node name 
03 0994 58 COPY_DEVICE $ 
019A 31 0095 59 BRW COPY_NODE ; Branch if node name found 
sh at 
0098 6¢ 3; Move the device name string and, if this is an ‘extended’ NAM block, fill in 
0098 3; the DEV element fields. 
0098 4; 
0098 5 
0098 
098 


2A 6A_ OOF 4 0 
6 


5 00E0 A E 009C¢ MOVAQ §FWAS 
6A 7 ee Al BBC 
08 A4 
04 €1 QOA 
03 08 A7 pA 


: get device descriptor address 
R10),- ; 1s there a concealed device? 


71 BBC #NAMSV_NOCONCEAL,- 
7 NAMSB_NOP(R7) , COPY_DVI 
7% ASSUME FWASQ_CONCEAL_DEV EQ FWASQ_DEVICE+8 


6 ADDL2 #8,R6 ; yes 
77 COPY_DVI: 
CMPB 


; do we display it? 


56 (08 ~=« 0 
60 8F 01 A7 NANSB_BLN(R7) , ANAMSC_BLN 


80 MOVL R3,NAMSL_DEV(R7) : 
1 ADDB3 (R46) ,#1,RAMSB_DEV(R7) : 


at a extended NAM block? 


not 
n DEV address field 


6 
? 
66 COPY_DEVICE: 
67 BBC #FWASV_DEVICE,(R10) ,COPY_DIR ; branch if no device seen 
6 BEVICE (R10) ,R6 
° NCEAL_DEV, ¢ 
n DEV Length field 


i 
44 AT 4 
39 A?) «01s 66 


J 4 
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(+ colon) 


10$: BSBW MOVE went copy device name 


: We have displayed the rooted directories, check for normal ones 
50$: MOVB FWASB_ROOTERM(R10) ,RO copy close right bracket 
BSBW MO H 
BBS #FWASV_DIR, (R10) ,80$ 
60$: BRW COPY_NAME 


branch if no directory wanted 


: Display the normal directory levels 


80$: SUBB3 = #2, FWASB_DIRTEPM(R10) ,RO 
BSBu MOVE 


A 
BBC #FWASV_DIR, (R10) ,1708 
MOVAQ  FWASQ BIR1(R10) : 
BBS #FWAST_GRPMBR, (R10), 1108 
EXTZV #FWASVDIR_LVLS,- 
ASS"DIRZLVLS, (R10) R11 


copy left bracket 

to user buffer 
branch if no directory wanted 
oot directory descriptors 

ranch if Cgroup,member) format 
get number of subdirectories 


om— 


m 
~ 


I E 
mB ) 
D 
0" BE Bm oy we eg 
V *“A/:/, append a colon 
ore : ; BSB MOVE _CHAR vie 
C ; 
3 } ; Build up full directory spec from the parts and, if this is an ‘extended’ 
+ ; ; NAM block, fill in the DIR element fields. 
C6 91 
C6 36 COPY_DIR: 
OA AA 3 C8 9 TSTB FWASB_DIRTERM(R10) ; was there a right bracket? 
“6 1 C 94 BEQL i: no, skip copy? 
60 8F O1A 91 O0C 95 108: CMPB NAMSB_BLN(R7) ,#NAMSC_BLN ; is this an extended NAM block? 
4 Ff 00D 36 BLSSU 20% : branch if not 
48 A7 3 pO 00D 9 MOVL R35, NAMSL_DIR(R7) ; fill in DIR address field 
3A 6A A €1 00D6 98 208 BC FWASV_ROOT Pin. (R10) .008 ; was there a root directory? 
05 6A C EO OQODA 9 BBS #FWASV_EXP ROOT, (R10) ,30$ 3; was it explicit? 
4 €1 00D 40 BBC #NAMSV WOCONCEAL ~ : should we display it? 
31 08 A7 0060 40 NAMSB_NOP(R7) ,80$ 
83 
Boe rt ; We have rooted directories and need to display them 
O0E3 406 © 
50 OB AA 02 3 OOE 407 30$: SUBB3 #2,FWASB_ROOTERM(R10) ,RO 3: copy open Left bracket 
0125 30 Q0E8 40 BSBy Sealine 
56 OOFO CA FE OOEB 40 MOVAQ FWASG CDIR1(R10),R6 3 get concealed descriptor List 
0114 30 Fo 410 40$ BSBW MOVE _REXT 3 Copy next directory name 
50 sf 90 F 41 MOVB #*A/./,R0 3 
0121 30 Fos G1 8SBW MOVE_CHAR ; and append delimiter 
66 be F941 TSTL (R6) 3 any left? 
09 = FB 4] BEQL 50$ 3; no 
0128 CA 7F FD = 41 PUSHAQ FWA$Q_ CDIR8(R10) 3: check end of List 
56 sO 1 41 CMPL R6, (SP)+ F 
EA 18 ‘ 41 BLEQU 40$ ; not yet 
6 41 
6 4 
6 4 
6 4 
6 4 
4 
4 
4 
4 
4 
4 
4 
4 
& 
4 
« 
4 
4 
4 
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90$: BSBW phy: -NEXT 
MOVB #*A/c/ he 


BBC mretesie ELIPS,-8(R6) ,100$ 
BSBW move cn 


BSBwW ECHAR 
100$:  SOBGEQ Ril 50s 


RMONAMSTR RETU 
vo4~006 RMSE 


copy next directory name 


ets eqpend delimiter 
Lipsis following this name? 
so, append ‘.. 


Done with string, check for trailing elipsis, if so keep the 3 dots 


30 FB AG 19 3! BBS #FSCBSV_ELIPS,-8(R6),170$ 3; branch if trailing, elipsis? 
5 D DECL R3 3; remove trailing ° 
$8 97 DECB (R8) ; decrement string size 
rR BRB 170$ 3; add right bracket 


loop until done 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
01 
4 8 : 3 Copy group member direcotries 
0150 
06 €0 Q1 110$: BBS #NAMSV_NOCONCEAL ,- ; convert if noconceal 
OE 08 A7 01 2 NAM$B_RNOP(R7) , 120$ 3 to non-uic format 
OOAF 30 01 BSBW MOVE _REXT 3 copy group portion 
50 2C 90 0158 MOVB #*A/,/, ; copy UIC format separator 
00BC Hi 0158 BSBW MOVE _CHAR ; to user buffer 
00A6 0 O15E 465 BSBW MOVE NEXT 3 copy member portion 
24~—=C«d111 4 1 $66 BRB 1708" 
50 30 90 1 j 468 120$: MOVB #*A/0/ RO ; get fill character 
51 66 9A 0166 469 MOVZBL (R6),RI ; get size of group 
03 11 #0169 470 BRB 140$ 
OOAC 30 0168 471 130$: SBW oe CHAR 3; pad one 
F9 51 O03 F3 B18 ore 140$: AOBLEQ «RT, 1308 
0092 30 01 47 SBW OVE 3; move group 
50 30 90 O17 474 vB #*A/0/,R 3; get fill character 
51 66 A 0178 479 MOVZBL (R6), { : get size of member 
009A 30 017D 139 150$:  BSBW MOVE_CHAR 3 pad one 
F9 51 O03 £3 0180 478 160$:  AOBLEQ #3,RT,150$ 
00 30 0184 479 BSBwW MOVE NEXT 3 move member 
O18y cet 
+ 7 4 § 3; Finish off the directory string 
ae | 
50 OA AA 930 0 7 485 170$: MOVB FWASB_DIRTERM(R10) ,RO ; Copy rd rigng bracket | 
008c §=630 «(01 4 § BSBW HA 3 >") to user buffer 
60 8F O1A7 91 O01 4 CMPB WAnes BLN(R7) ,ANAMSC_BLN i Is this. an extended NAM block? 
1F 1 & 8 BLSS Y_ NA 3; Branch if not 
51 53 48 A7 & 19 4 SUBL NARSC DIR(R7) ,R3,R1 : Compute DIR Length 
A MOV NAPSB_DIR 3 Ff n DIR Length fie 
3A a7?) 551s: 90s«OO19A.—s« 490 B R1,NAM$B_DIR(R7)- itl i l tield 
ae | 
19€ 198 3; Now move the file name, type. and ver if (all stored in one string) and, 
19E 494 ; this is an ‘extended’ NAM block, iu in the individual filespec 
19E 495 ; element fields. 
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19E 496; 
19E 199 ; Note: This concatenated tame string is guaranteed to have the ‘’."' and ‘';"’ 
13 138 3 delimiters present, and it may simply be "’.;"' if all elements are null. 
19E 00 
19E 1 COPY_NAME: : 
60 8F O1A7 91 O19 ¢ CMPB NAM$B_BLN(R7) ,#NAMSC_BLN; Is this an extended NAM block? 
4—E 1F OIA BLSSU 10% ; Branch if not 
54 0170 CA 7D OQIA 04 MOVa FWASQ_NAME (R10) ,R4 ; Get descriptor of name-type-ver string 
1AA 82 2 ; that will be copied to user buffer 
65 22 91 OQI1AA 6 CMPB #*Aa/''/, (RS) ; is the 1st character a quote 
16 12 Q1AD bf BNEQ 5$ 3; if neq no, continue 
1ar 809 
Q1AF 10 ; Since the first character of the etring is a quote we cannot simply scan 
QIAF 511; for a. to find the end of the name. We must instead look for the Last 
ne 216 3 quote in the string, and assume that that ends the name field. 
BIA 21 
50 54 7D OU1AF 15 mMOva R4,RO 3 copy descriptor of string 
ss FT @& B188 218 ADDL2 = PO0,R1 3 point past last char of string 
71 22 91 OBS 518 3$: CMPB #*A/"'/ ,=(R1) 3; pick of next char from end 
FB «#612 «0188 ~= 86519 BNEQ 3$ ; if neq its not a quote, yet 
51 oF 01BA 520 INCL R1 3; readjust address for later code 
= we Ce Set (Se SUBL3 =R5,R1,R2 ; cale length passed over in R2 
7s 3 fa pice 5 ; SUBL2 R2,R0 3; cale lenght left 
08 11 Bite 2 ? BRB 6$ 3; continue Like we found . 
65 54 3 3A 01C5 525 5$: LOCC #*A/./,R4,(R5) ; Find dot delimiter 
52 51 C3 0109 526 SUBL3 =R5,R1, ; Compute NAME Length 
4C A?) 653 «600 «(O1CD) 527 68: MOVL R3,NAMSL_NAME (R7) : Fill im NAME address field 
38 A?)3«€65520—C oo 90s«é010D1 528 MOVB R2,NAMSB_NAME (R7) 3; Fill in NAME Length field 
54 0 7D 8108 263 MOVQ RG ; Get descriptor o bype-ver string 
54 3a 0108 530 LOCC. #*A/:/,R4,(R5) : Find semi-colon delimiter 
50 a7. 520 «O53 C1sSO1DCSCsC5311 ADDL3 R3,R2,NAMSL_TYPE(R7) |; Compute and fill in TYPE address field 
51 33 63) «6(ONET 238 SUBL. R5,R1,R : Compute TYPE Length 
3C A? 52 90 OES 5 MCVB R2,NAMSB ope bad: : Fill in TYPE Length field : 
54 A7 52 SOA? C1 O1E9 534 ADDL3 NAMSL_TYPE(R7),R2,- : Compute and fill in VER address field 
Bier 535 NAMS$L_VER(R7) : 
30 A?7_ 50 90 OQOIEF 536 MOVB RO,NAMSB_VER(R7) ; Fill in VER Length field 
56 0170 CA 7E O1F3 537 108: MOVAQ FWASQ NAME(R10) ,R6 ; Get address of descriptor of name 
OD 10 pire 5 8 BSBB MOVE _REXT ; string and append it to user buffer 
SIEA 546 EXIT_SUC: 
O1FA 41 RMSSUC ; Declare success 
1FD 225 
1FD 435 EXIT_ERR: ’ 
0900 8F BA OQIFD 44 POPR #*M<RB,R11> ; Restore registers 
05 01 45 RSB 3; Exit to caller 
f3 6 
0 47 ; ; 
8 $8 3; User buffer is not writeable. 
50 ° 
50 6c 3C 6 51 ERRSA: MOVZWL (AP),RO ; Get error code 
F611 0 52 BRB EXIT_ERR 3 And take exit path 
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N FILENAME STRINGS _ 
RMSEXPSTRING, Build Expanded or Resultan 5- RMS.SRCJRMONAMSTR.MAR; 1 (5) 
4 35 p++ 
f § ; This routine moves a field to the expanded or resultant string buffer. 
7 35 3; Update ESL (or RSL) count while checking for overflow, and if so, exit 
Bf 23 3 with ESS (or RSS) error. 
8 oF 3 3 Inputs: 
0207 § 3 R3 Address of output buffer 
07 64: R Address of descriptor of input string 
Bf 65 ; R ESL (or RSL) address in NAM block 
8 f 6 3 AP Address of expanded or resultant string argument List 
0207 ae 3; Outputs: 
0207 569 ; 
0207 570; RO-R2 Destroyed : 
0207 571; Address following string in the output buffer 
8$05 206 : R4-R5 Destroyed 
0207 573; R6 R6 on input + 8 
0207 574 ; R8,AP Unchanged 
0207 5735; 
0207 576; eet NOTE #t® 
0207 577; Me 
0207 578; If the user hasn't specified a name block, there is no 
0207 579; enforcement of the maximum for filename Length. In that 
0207 580 ; case, the file name consists of its individual pieces in 
0207 581; the FWA. This problem should be addressed someday. 
0207 288 37° 
0207 58 
0207 584 MOVE_NEXT: 
68 66 80 0207 585 ADDB2 =(R6),(R8) ; Count the strin 
1C IF Q20A 586 BCS POPP 3 greater than 255? 
FF AB 68 = 91 bg oe 587 CMPB (R8) ,-1(R8) ; Does it fit 
16 1A 0210 588 BGTRU PapPPt : Branch if not 
50 86 00 Osis 589 MOVL (R6)+,RO : Get length of string 
63 96 50 28 021 590 MOVCS RO,@(R6)+,(R3) : Move field 
05 0219 591 RSB ; 
O21A 296 
O21A 5935 ;++ 
O21A 594 ; ‘ 
021A 595 ; This routine moves the character in RO to the expanded or resultant string 
021A 596 ; while checking for overflow. 
8 1A 97 ; 
1A 98 ;-- 
021A 99 
021A 600 MOVE_CHAR: a 
68 96 1A = 601 INC (R8) ; Count character 
OA iF 1C 606 BCS OPPC : Greater than 255? 
FF AS 68 91 i§ 60 CMPB (RB) ,-1(R8) 3; Does it fit? 
4 1A one BGTRU PO : Branch if not 
83 0 90 4 605 MOVB RO, (R3)+ ; Move in the byte 
05 0227 $06 RSB 3 
sf 
609 ; Field will overflow user (expanded or resultant string) buffer. | 
610 ; Return ESS or RSS error. | 
| 
| 
| 
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. itl Expanded or Resultan "er8 1382 90: $5: §8 RMS.SRCJRMONAMSTR.MAR; 1 ° 3) 
ei | 
615 POPPC: POPR #*M<RO> pee return P 
ele MOVB -1(R8), (RB) ; e string length = buffer Length | 
6 | 
617 ; User buffer is too small. 
618 ; 
619 
es ERRSS: TSTW (AP) + 
621 BRB ERRSA 


; Move to ESS or RSS error code 
3; Branch aid 
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v04-000 RMSEXPSTRING, Build Expanded or Resultan g78e 71984 90:35:68 LRMS. SRCIRMONAMS TR MARS 1 . ( 
sbi 
625 ; Copy node spec List to the user buffer and optionally mask out the 
6 g ; password string in each node spec (if present). Also return the remote 
8 ? ; file system type to the user. 
8 ? : ; Inputs: 
0 631 ; R3 Next user buffer address 
0 O36 3 R?7 NAM block address 
0 635 ; R9 IFAB address 
8 ; o3e : R10 FWA address 
0 36 Output 
; utputs: 
0 ‘ $39 3 
0 ; 638 ; RO-R2 Destroyed 
bs 639 ; Re Next user buffer address (updated) 
023 640 ; R4-R6 Destroyed 
oe38 641 ; R11 Destroyed 
0 642 ; 
0232 643 ;-- 
0232 644 EX! 
0232 645 COPY_NODE: EXP. 
OS 3s 646 EX 
0232 647 ; FAB 
OSes 968 ; First return the remote file system type in the NAM block. tae 
OSes 650 ; Note: The information is available only after FAL has been accessed. Thus FIB 
023 651 ; the information *s valid only when returning a resultant name string. FIB 
ae 9 
52 AQ DO 0232 654 MOVL IFBSL_NWA_PTR(R9) ,R2 ; Get address of NWA 
00cS C2 90 0236 655 MOVB NWASB_FILESYS(R2) ,- : Copy remote file system type stored 
A7 ossa 628 NAMS$B_RFS(R7) ; in NWA to NAM block 
Oec3C 658 ; 
023C 659 ; Now copy node spec List to the user buffer. 
023C 660 ; 
023C 661 
5B D4 0235C 666 CLRL R11 ; zero loop counter 
56 0184 CA4B 7E OQO23E 663 108: MOVAQ FWA$Q_NODE1(R10)CR11],R6; get address of next node spec desc 
09 66 12 #«E1 0244 664 BBC #FSCBSV_ACS,(R6),20$ ; branch if this node spec has 
0248 665 ; mo access control string, (flags. 
8 ‘8 66 ; _are stored in bytes 2-3 of descriptor) 
5B =~OOS 4 66 TSTL R11 ; Do not mask the password for 
05 12 Q24A 668 BNEQ 20$ : secondary node names 
00 €1 Q24C 669 BBC #NAMSV_PWD,- ; branch if password is to be ‘ 
05 08 A7 024—E 670 NAM$B_ROP(R7) , 30$ ; masked out of access control string 
B4 10 51 671 208: BSBB MOVE _REXT ; Move this node spec strin 
0080 = 31 23 ore BRW 80$ ; to user buffer (unaltered) 
56 674 ; : : 
56 675 ; The node spec string contains an embedded access control string, i.e., 
2° 676 3; the string is guaranteed to be of the form: 
56 143 : nodename’'access_control_string’’:: 
56 «679 ; 
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v04-000 RMSEXPSTRING, Build Expanded or Resultan meth 00:35:88 YRMS. SRCIRMONAMSTROMARS 1 ° (6) 
56 680 ; Search the node spec string for a password age and replace it with a 
2° ° 1 : dummy substring. Then copy the modified node spec string to the user buffer. 
és ; Find delimiter before password (either space or tab). 
6 685 | 
0486 66 22 3 56 ong 30$: LOCC #*A/''/, (RO) ,84(R6) ; Locate start of ACS 
ro) oe 5B 6 BEQL 20$ : Something is wrong!! 
50 D7 0250 688 40S: DECL RO ; Make <RO,R1> point to next 
51 06 O25F 689 INCL R1 ; character in string 
20 61 91 0261 690 CMPB (R1),#SPACE ; Look for space delimiter 
Oc 13 8 64 691 BEQL 50$ ; Branch oun : 
09 61 91 66 O36 CMPB (R1) ,#HOR_TAB ; Look for horizontal tab delimiter 
07 13 0269 69 BEQL 50$ : ; Branch found 
22 61 91 0268 694 CMPB (R1) ,#*A/''/ 3; Look for end of ACS 
E1 13 O26€ 695 BEQL 20$ ; Branch if ACS is of the form: 
eB 11 0370 G88 Bra 40S | magcetegeernees abt sek eeeabed 
3 End-of-username not yet reache 
0972 698 4 
bets 099 ;: é 
bs? ooo 3; Delimiter before password has been found. 
0595 re 
50 D7 0272 703 50$: DECL RO 3; Make <RO,R1> point to possible 
ee a eee Eis eel iin asset 
° é : over mu e spaces 
F7, 13 0279 706 BEQL 50$ , : . 4 
09 61 £91 «0278 707 CMPB (R1) ,#HORK_TAB ; Skip over multiple tabs 
F2 13 O27E 708 BEQL 50$ re 
0280 709 
0280 710; - 
stt4 at ; Set-up three descriptors that will describe the modified node spec string. 
0280 713° 
52 3C A9 DO 0280 714 MOVL IFBSL_NWA_PTR(RI) ,R2 ; Get address of NWA 
52 0120 C2 9€ 0284 715 MOVAB NWAST_TEMP(?2),R2 3; Get address of scratch buffer 
62 66 7D bees 716 MOVQ (R6) , CR2) 3 1st descriptor describes node name 
on oe Cae Bee eee SUBL2 » aR 3; _string up to password 
08 A2 08 9A O28F 718 MOVZBL #8,8(R2) 3; 2nd descriptor describes dummy 
oc Ag 18 A2 9E OS33 719 MOVAB 24(R2),12(R2) 3; string that replaces password 
18 A2 64726F77 73736170 8F 7D S344 £36 MOVA #*A/password/ ,24(R2) ; Store dummy string 
2A4 1s¢ : 
ei ie ; Find delimiter after password (either quote, space, or tab). 
02A4 725 © 
22 61 91 bSae 726 60$ CMPB (R1) ,#*A/"'/ ; Branch if ACS is of the form: 
OE 13 O2A7 et BEQL 70$ ; “username password 
50 =~? AY 728 DECL RO ; Make <RO,R1> point to next 
51 06 AB 729 INCL R1 3; _character in string 
20 61 91 AD 730 CMPB (R1) ,#SPACE :; Branch if ACS is of the form: 
ae 8 B 731 BEQL 70$ ; _“‘username password account” 
09 «661)—O91 B 7 § CMPB (R1),#HOR_TAB :; Branch if end-of-password not 
gD 12 B 7 BNEQ 60$ 3; yet reached 
10 A2 0 7D B? = 734 708: MOVQ RO,16(R2) ; 3rd descriptor describes node 
+4 4 2 3 name string after password 
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v04-000 RMSEXPSTRING, Build Expanded or Resultan Seon 384 93:55:68 RMS.SRCIRMONAMSTR.MAR; 1 3 (6) 
BB C737 ; 
4 rs ; Copy node spec string with password masked out. 
BB 740 * 
56. 5 dO BB 741 MOVL R2,R6 ; Copy address of 1st descriptor in set 
52 SC A p? B og MOVL IFBSL_NWA_PTR(R9) ,R2 ; Get address of NW 
0164 C2 C 74 MOVL R3,NWASQ_CNODE+4(R2) ; Save address of returned string 
FF 3D Q Oe 744 BSBW MOVE _NEXT ; Use 1st descriptor 
FF3A 0 O2CA 745 BSBw MOVE NEXT ; Use gnd descriptor 
FF37 0 8 CD 86746 BSBW MOVE _NEXT ; Use 5rd descriptor 
Do ae 
6 PO 28 ; Create special logical name in user mode entered in the process logical name 
0200 750 ; table for the node-spec-string-with-password-masked-out with an equivalence 
02D0 751 ; string that is the merged-unaltered-node-spec string. This is done so that 
02D0 O36 3; the expanded and resultant strings have password masked-out, yet are 
0200 755 ; still valid when used as a related file input string. 
Bh 
52  3C A9 DO O2D0 756 MOVL IFBSL_NWA_PTR(RY) ,R2 ; Get address of NWA 
55 0164 ge 09 bgde 757 MOVL NWASQ_LNOBE+4(R2) ,R5 : Get address of returned string 
~ 33.9 C3 0209 758 SUBL3 = R5,R3,R4 ; Build descriptor of node spec string 
54 Oe C2 02DD 759 SUBL2 #2,R4 : in <R4,R5> 
SF 8F 6 91 O2E0 760 CMPB (RS) ,#AA/_/ ; Remove leading underscore (if present) 
04 12 O2E4 761 BNEQ 75$ 3; before creat "9 special logical name 
54 D7? O2E6 r6¢ DECL R4 : of node spec (less double colon) 
55 D6 O2E8 INCL R5 ; _with password masked out 
0160 C2 54 7D OQ2EA 764 75$: MOVQ R4 ,NWASQ_LNODE (R2) ; Store desc of special logical name 
O2EF 765 $CRELOG_S- ; Create the special logical name 
O2EF 766 TBLFLG=#LOGS$C_PROCESS- ; Process logical name table 
O2EF 767 LOGNAM=NWASQ_CNODE(R2)-_; String desc with dusay password 
O2EF 768 EQLNAM=FWASQ-NODE1(RI0)CRI1J- ; String desc with real password 
43 769 ACMODE=#PSL$T_USER ; _Put in process table in user mode 
1D 50 €9 Q303 770 BLBC RO,ERRDME :; Branch on failure 
60 8F 01 A7 91 0306 771 80S: CMPB NAMSB_BLN(R7) ,ANAMSC_BLN; Is this an extended NAM block? 
09 1F 0308 ure BLSS 9 ; Branch if not 
51 53 40 A7 C3 0300 77 SUBL NAMSL_NODE(R7) ,R3,R1 ; Compute NODE Length 
38 AZ) 3651 «90 0312 774 MOVB R1,NARS$B_NODE(R7) ; Fill in NODE Length field 
6A 35 €E€0 0316 775 90$: BBS #FWASV_REMRESULT,(R10),-; Branch if remote FAL has 
75 0319 776 COPY_REMRESUL 3; _returned a resultant filespec 
2F AA 9D O31A 777 ACBB FWASB_SUBNODCNT(R10),- ; Branch if there is another secondary 
FFID 5B 01 031D 778 #1 . ; node spec to process 
08 11 a3 79 BRB COPY_QUOTED : Check for quoted string | 
353 a8 ERRDME: RMSERR DME ; Declare error 
FED2 31 0328 782 BRW EXIT_ERR ; Branch aid 
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#FWASV_QUOTED, (R10), 10$ : 
COPY_DEVICE : 


NAMSB_BLN(R7) ,#NAMSC_BLN; 
3; Branch if not 

: Fill in NAME address field 

FWASQ QUOTED(R10) ,R6 3 


R3,NAMSL_NAME (R7) 
#FWASU_NETSTR, (R10), 308 


#MAMSV_PWD,- 
NAMSB_NOP(R7) , 308 : 


A_PTR(R9) RO 
STRSIZ(RO),R1 
P(RO) ,R2 


R2) 
ta''\,16(R2) 


R2,R6 
MOVE _NEXT : 


MOVE _NEXT ; 
NAM$B_BLN(R7) ,ANAMSC_BLN; 


NAMSL_NAME(R7) ,R3,R1 : 
R1,NARSB_NAME (R7) : 


EX_SUC : 
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RMS.SRCJRMONAMSTR.MAR; 1 


the quoted string to the user buffer and optionally mask out 
Also store the wildcard context of the 


Branch if quoted string follows 
node name string 

Rejoin mainline 

Is this an extended NAM block 


ue 


Page 17 
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| 
| 
| 
| 


Get quoted string descriptor address 


Branch if /netacp_data 


was not present Tn quoted string 


Branch if /netacp_data is not to 
be masked out from quoted string 


The quoted string contains an embedded /netacp_data. Replace it with a 
and copy the modified quoted string to the user buffer. 
scriptors that will describe the modified quoted string. 


Get address of NWA : 

Get length of /netacp_data’ 

Get address of scratch buffer 
Ist descriptor describes quoted 
string up to slash 


; 2nd descriptor describes dummy 
; string that replaces /netacp_data™ 


Store dummy string 


Copy quoted string with /netacp_data masked out. 


Copy descriptor set address 
Use Ist descri 


ptor 
; Finish-up with 2nd descriptor 


Copy quoted string 

Is this an extended NAM block? 
ranch if not 

Compute NAME Length 

Fill in NAME Length field 


Rejoin mainline 


> >> 
MUINOWMN— NIN >> 
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Copy resultant string returned by remote FAL (which does not contain the 
leading node spec) to the user buffer. 


Note: This resultant string is described by the quoted string descriptor. 


Note: If the user quoted the filespec and entered only a primary node spec, 
then the resultant string returned by FAL is quoted and copied to the 
user buffer, because the quotes were removed by NTSGET_FILESPEC when 
building the filespec to send to FAL» thus causing FAL to return a 
resultant name string without quotes! 


Sete Se Ge Ge Ge Se Se Ge Se Ge Ge Ge Ge 


COPY_REMRESULT: 
MOVAQ FWA$Q_QUOTED(R10),R6 : 
BBC #FWASU_QUOTED, (R10),10$ ; 
; Branch if there is more than one 


TSTB FWASB_SUBNODCNT (R10) 
node spec in node spec List 


; Get result string descriptor address 
MOVB #*A/"'/ RO + Add Leading quote to resultant 


Branch if user did not enclose 
filespec in quotes 


strin 

Copy the returned resultant string 
; Add trailing quote to resultant 
; string 


MOVE _NEXT 3; Copy the returned resultant string 
C NAM$B_BLN(R7) ,ANAMSC_BLN; Is this an extended NAM block? | 
BGEQU PARSE _REMRESULT ; Go parse the resultant name string 
SUC: BRW ExIT_SuC : Rejoin mainline 


6 5 
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BB ++ 
BB $$ 3 
BB rt: ; The resultant name string returned by FAL has not been parsed by RMS, so 
BB § ; there will not be FWA descriptors of the various filespec elements oye. 
4 ty ; Therefore, hand-parse the string and fill in the extended NAM block fields. 
BB a ; Note: FWASQ_QUOTED is used to describe the resultant string returned by FAL. 
oe Y? : This does NOT imply that FAL has returned a quoted string. 
o BB 75 ; Note also that this code will not work if remote nodes ever return 
BB 6 3; @ quoted file name string, e.g. an ANSI-"'a"’ filespec. Since magtape 
8 4 of ; access is not allowed over the network this is not currently a problem. 
8 8B 79 3-- 
BB 880 TwO_COLONS: 
3A 3A Beee + eASCII %:3° ; Text for MATCHC instruction 
tet4 He PARSE _REMRESULT: 
55 40 A7 DO 038d See MOVL NAMSL_NODE(R7) ,R5 ; Get address of resultant name string 
03C1 85 ; already copied to user buffer 
56 68 9A 03C1 86 MOVZBL (R8),R6 ; Get Length of resultant name string 
034 87 ; in user buffer (size of first node 
03¢4 88 ; mame + size of FAL's returned string) 
03C4 889 IF NORD R6, (RS) ,EX_SUC, IFB$B_MODE (R9) ; Can we read it? 
03¢cB 890 
03CB 891; 
pace £36 ; Reparse the nodespec List, as the resultant string returned by FAL may have 
3CB 83 3 additional node names to contribute to the nodespec List. 
03¢B 94 ; 
03CB oo2 
03¢CB 96 REM_NODE: ' 
65 56 EC AF 02 39 O3CB 897 10$: MATCHC #2,B*TWO_COLONS,R6,(R5) ; Now find the next °*::' 
12 0301 898 BNEQ 208 ; Branch if no more nodes 
= > DO 0303 899 MOVL R3,R5 3; Save the address 
56 52 00 0306 900 MOVL R2,R6 : Save the # of remaining bytes 
65 22 91 0309 901 CMPB #*A/"'/, (RS) ; Do we have a quoted string? 
ED ig 03DC Ong BNEQ 10$ ; Branch if not; look for another node 
54 55 «40 A7 «OC 0306 903 20$:  SUBL3  NAMSL_NODE(R7),R5.R4  : Compute NODE Length 
36 A7 54 90 O3es ape MOVB R4 ,NAMS$B_NODE (R7) : Fill in NODE length field 
O3E7 906 REM_QUOTED: s 
65 ee 91 Q3E7 907 CMPB #*A/''7, (RS) ; Do we have a quoted string? 
A 12 OQ3EA 908 BNEQ 3 DEV ; Branch if not 
4C A7 55 ne) 8 33 909 MOVL R »RAMSL_NAME (R7) ; Fill im NAME address field 
A? 56 90 F 910 MOVB R6,NAM$B_NAME (R7) ; Fill im NAME Length field 
7A —11—SO03F4 917 BRB suc : ALL done 
F6 31g 
$8 913 REM_DEV: 3 y 
65 56 3A 3A F6 3=«O914 LOCC #°A/:/,R6,(R5) 3 Find single colon device delimiter 
16 13 oe 915 BEQL Ren D1 ; Branch if no device seen 
44 a7 5 dO FC 218 MOVL R5,RAMSL_DEV(R7) : Fill in DEV address field 
1 06 40 91 INCL R1 : Step past the colon 
54 51 5 4 218 SUBL3 R5,R1,R4 ; Compute DEV Length 
39 A7 4 4 91 MOVB R4,,NAMSB_DEV(R7) : Fill in DEV Length field 
22 7.2 40A 920 MOVL 1,R5 3; Move pointer to next field 
6 s ~¢ 40D 921 SUBL2 R4,R6 ; Compute remaining Length 
—E 13 0410 922 BEQL suc : Branch if end of string 


H 5 


7 
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yoen008 RMSEXPSTRING, Build Expanded or Resultan ets 1 93:33:88 YAMS SRCIRMONAMS TR MARS 1 (9) 
412 923 | 
41 4 REM_DIR: ; 
65 56 5D 8F 3A 041 5 LOCC = =—s_- #*A//,,R6, (RS) ; Look for closing square bracket 
96 12 041 4 $ BNEQ ; Branch if directory found 
65 56 E 3A 0419 LOCC #*A/>/ ,R6, (RS) ; Look for closing angle bracket 
ig 13 0410 9 8 BEQL REM NAME : Branch if no directory found 
48 A7 iy) 41F 929 108: MOVL R5,RAMSL_DIR(R7) : Fill in DIR address field 
1 0 4 930 INCL ; Step past the bracket delimiter | 
Ss 5155 f3 0% 931 SUBL3 R5,R1,R4 : Compute DIR Lengt | 
SAA? 54 90 04 3 g OVB R4,NAM$B_DIR(R7) ; Fill in DIR Length field 
es ae es Poo kee. | 
; Compute remaining Leng 
1 4 4 5 suc ; Branch if end of string 
4 9 $ REM_NAME : : 
65 56 3A 04 9 8 LOCC #*A/./ RO, (RS) ; Find dot delimiter 
4C A? 00 439 9 OVL RS,NAMSL_NAME (R7) : Fill in NAME address field 
a» 2 we € 43D 940 SUBL3 =R5_R1, ; Compute NAME Length 
3B AZ) 354) «690 0441 = 941 MOVB R4,NAMSB_NAME (R7) ; Fill in NAME Length field 
55 51 00 0445 a6 MOVL R1,R5 ; Bump pointer to next field 
56 654 0448 94 SUBL2 R4,R6 ; Compute remaining Length 
~ % 0448 944 BEQL = Su : Branch if end of string 
0440 946 REM_TYPE: : 
65 56 38 3A 0440 947 LOCC #*A/;/,R6,(R5) ; Look for semi-colon version delimiter 
07 i 0451 948 BNEQ 10$ : Branch if found 
56 0453 949 DECL R6 :; Skip past leading dot! 
01 AS 56 2E A 0455 950 LOCC #*A/./,R6,1(R5) ; Look for dot version delimiter 
50 A755) «D0 «(045A =o 951 108: = MOVL_ —s RS, NAMS$L_TYPE(R7) : Fill in TYPE address field 
s. wey B25 336 SUBL3 R5,R1,R : Compute TYPE Length 
3c A? 54s«9) 046¢ 933 MOVE R4,NAMSB_TYPE(R7) : Fill in TYPE Length field 
46 955 REM_VER: ; 
30 a7 0 (550 79 he 956 te, MOVB RO,NAM$B_VER(R/) : Fill in VER Length field 
06 13 O46A 957 BEQL : Branch if end of string 
54 A? 51 00 Q046C 958 MOVL R1,NAMSL_VER(R7) ; Fill in VER address field 
03 10 0470 959 Suc: BSBB- =—s« UPDATE FRB ; Set appropriate FNB bits 
FD8S5 §=631 «047 960 BRW Ex1IT_S0C : Rejoin mainline 
047 961 
| 
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RMSE X 


vz 
“7 
=e 


sfit P=1984 16:00:08 ERAS SRCIRMONAMSTRoMAR:1 “29° (ZO), 


| 
47 963 ;++ 
47 43 $ | 
47 5 ; This routine sets the wildcard directory FNB bits for a network $search. 
4,7 308 5 eerrensiy FAL does not return these bits. 
47 67 ; These bits are input to an OFP if the input 
47 68 ; file NAM block is used as the RLF. | 
47 $ ; Since we don't actually know how —_ are wild, we set as many wild bits 
47 970 ; as there are sub-directories; the UFD is never set wild. 
of 44 : This is appropriate for most common cases: 
47 378 3; works: COPY wader thee: J*, TXT ie j* 
47 374 : COPY node: :(A.*]*. TXT Z.#j}* 
47 2r8 3; fails: COPY node::(A.B...J*. TXT f---ge i gets B.DIR and shouldn't 
rtf 144 ; COPY node::(...J*. TXT Z...J* ; doesn't get top level 
47 979 ; Inputs: 
47 980 ; 
47 981 ; R7 NAM block address 
47 9 § : 
047 9835 ; Outputs: 
of 4 : 
47 985 ; RO-R3 destroyed 
Bor 288 ; FNB bits set 
oe 987 ; 
047 one i-- 
47 98 
47 990 UPDATE_FNB: | 
53 D4 047 991 CLRL R3 : Zero dir_lvl counter 
50 3A A? GA 047 99 MOVZBL NAM$B_DIR(R7),RO ; Get dir Tength 
30 «13 78 99 BEQL 1 : 0 Length = no sub dirs 
51 48 A7 00 0470 994 MOVL NAMSL_DIR(R7) ,R1 ; Get adr of dir string 
481 995 IFNORD RO, (RT), 100$, [FB$B_MODE(R9) t Can we read it? 
61 50 2 3A 8 996 10$: LOCC 4#*A/./,R0,(R1) : Locate a dot 
13 8c 3699 BEQL egs 3; No more sub dirs 
: 06 8 998 INCL kK : Found one/ update count 
1 be 9 999 INCL RI ; Step passed found dot 
50 0D 492 1000 DECL RO : Decr the Length 
F 11 0494 1001 BRB i : See if there are any more 
5 » rh 1 84 20$: TSTL R 3; How many did we find? 
1 1 498 1 BEQL 1908 ; Branch if none 
15 5 FO O49A 1004 INSV R3,#NAMSV_DIR_LVLS,- 3: Set ghe DIR_LVLS field 
34 A? 8 490 1005 #NAM$S_DIR LVCS .NAMSL_FNB(R7) ; (a 3 bit field) 
09 oh 1¢ —1 AQ 1 $ BBC #FWASV_WILB_DIR, (R10)7100$ : Don't set any if none wild 
gt CE Ad 1 MNEGL #1,R0 ; Set all the bits 
34 a7 53 1 0 FO A? 1 : INSV RO, #NAMSV_WILD_SFD1,R3,- ; Set as many wild bits as there 
4AD 100 NAMSL_FNBTR ) ; are dir_lvls (SFD1 => SFD7) 
05 nef 34 100$: RSB ; ALL done. 


a 
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re ! 13 -SBTTL RMSGETFILNAM, Build Resultant File Name for Journaling 
she S15 
4AE 1 9 : RMSGETFILNAM = This routine uses the name block routines above to 
4AE 1 18 3; return device:tdirectory...filename.extsversion into a buffer 
ry ! Hs ; for journaling. 
rey ! 1; Calling Sequence: 
sae § ; BSBW 0s RMSGETFILNAM 
cn ; 5: Input Parameters: 
4AE 19 5 : R3 Address of Buffer to return file name string 
4AE 1 8 3 RG Size of Buffer 
4AE 1029 ; RD IFB address 
4AE 19 0; R10 FWA address 
ry 1} 1°: R11 impure area address 
O4AE 1038 : Implicit Inputs: 
Rene 193? : The current contents of the FWA. 
Roe 1037 : Outputs: 
O4AE 1039 : RO Status code 
O4AE Ho : R1-R3 Destroyed 
nen 1303 : R4 Return String Length 
O4AE 1903 : Implicit Outputs: 
QO4AE 1044 ; 
BeAe Hk $ None. 
Dike 1947 : Completion Codes: 
ae ep ; Standard RMS completion codes, including SUC, ESA, ESS, RSA, RSS, NAM. 
O4AE 1981 : Side Effects: 
O4AE 1936 3 
O4AE 1053; None. 
Q4AE 1054 ; 
AE 188 i 
CAE i 37 cnaisg #*M<R3,R4,R5,R6,R7,R8> =; Save registers 
52 “ et a re ! 33 a BNAMSC NRO wrt : Allocate a fake nam block 
" rBen’ 88 4B 1981 BSBW RMSGETSPC 
05 50 E€8 Q48C 1 ¢ BLBS RO,1 ; ; Continue on error 
O1F8 BF BA 4BF 106 POPR #*A<R35,R4,R5,R6,R7,R8> ; Restore registers 
a8 ee toe 
ee 0 04C4 1 06 10$: MOVL R1,R7 3; Save address of block 
¥ 5 B beth 106 nOVE coho RS NAMSB_BLN(R7) : Pitt in Bisek Length 
oer ae 3 ace $5 $38 #NAMSV-NOCONCEALNAMSB_NOP(R7) ; we need ‘real’ physical device 


L 
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; 


TRINGS 16-SEP-19 
ulld Resultant File Name eet 1 
MOVAB NAM$B_RSS(R7),RB : 
MOVB = R4, (RB) + ; 
CLRB 6) ; 
MOVAQ FWA$Q_DIR1(R10) ,R6 ; 
MOVZBL FWAS' pPERTERACRIO) -(SP); 
Ove “a/7,FWASB_DIRTERM(R105 
PUSHAB 8*20 : 
PUSHR #*M<RB,R11> : 
BRW COPY_DEVICE ; 


COPY_DIR will return here 


NOVB (SP) . FWASB_DIRTERM(R10) 
+ 

MOVZBL NAMSB_RSL(R7) RB 

MOVL  -R7,R4 

MOVL R9-R3 

MOVZBL #NAMSC_BLN,R2 

BSBW  - RMSRETSPC 

MOVL RB, R4 

POPR "CRS. R6.R7 ,RB> 


Initialize RS 
; Copy from start of directory info 


< 98:53:68 HRMS. SRCIRMONAMS TR. RAR; 1 


Ger RSS addres 
LL _in RSS 


Save directory terminator 
; Force square brackets 


Set return address lor COPY_DEVICE 
Push registers COPY_DEVICE pops 
; Go off and get name” 


Restore directory terminator 


Pop off stack 
Save return length 
Return fake nam block 


Return file name Length 
Restore registers 


point R8 at RSL 
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-SBTTL RMSFILLNAM, Output Resultant File Name and other NAM Fields 


+ 


RMSFILLNAM -- errr to output resultant name string and other 


Inputs: 
Ri impure area address 
R10 fwa address 
Rg ifab ederess 
R8 fab address 
Outputs: 
R7 nam block address 


RO status code 
Ri-R6 destroyed 


SVAN S BS EMO OMIM OVID NNW MMOL OCONEE SESS LSS LLLP LPP PPLE EEE 
ee ee a a a ad dd 


BPE PWN WWIWIWINIDINININININININIDN 2 2 OO MH QOOOOOOOCOCOOOOD 


AOU & BF BE AAWWIAPIPIPONINID) 2 t-te 


0 
} 1 
108 
104 
} 5 
86 
109 
0 110 
Be 
Osye 1118 
0 114 
0 115 
0 116 EXPARGL: 
04 0 117 -BYTE NAMSL_RSA ; arg List for rm$expstring 
0 118 RMSERR_WORD RST 
8 : 4 RMSERR “WORD RSS 
0 121 RMSFILLNAM:: 
57 28 A&B 00 0 1 ; MOVL F ABSL_NAM(R8) ,R7 3 get name block addr 
38.C«‘23 } 7 BEQL 30$ ; branch if no nam block 
18 €0 0 125 BBS #DEVSV if the device is mounted foreign then 
04 69 0 126 IFBSL PRIM. DEV(R9) the directory is to be of null Length 
0469 1C €0 9 f BBS #DEVS0_RND>IFBSL RIA. DEW(R9), 108 : branch if full directory dev 
0 129 5$: CSB #FWASV_DIR, (R10) ; clear DIR bit if not 
5C EG AF SE O 130 10$ MOVAB EXPARGC,AP : list for rusexpstr ing 
FACE 30 0 131 BSBW = RMSEXPSTRING ; Tit ta Pesultent hone 8 ring 
28 5 E9 O 1 ¢ BLBC 408 ; quit on error 
25 6A 19 3 0 1 BBS #FWASV_NODE (R10),50$ ; branch if nodename was found 
0028 30 0 134 BSBW =- RMSWRITE_Dvi - Write DVI field in. Nan block 
24 AZ O1FB CA 00 135 MOVL FWAST *FIBBUF +F 18SW_ FID(RIO) NANSU FID(R7); y fid 
28 A OFC CA BO 136 MOVW FWAST. “F IBBUF +F IBSW_ FID+4(R10), NAMSULE 1D+4(R a copy fid 
O1FE CA 8 3 137 TSTW FWAST. ~F IBBUF +F IBSw_ “DIDCRIO) ; an dia? 
- % 138 BEQL 30$ branc yee 
sf A7 oirS CA 00 8 139 MOVL FWAST_F IBBUF +F IBSW_ DID(RIO) a ieu 1 reali gopy did 
E A? 0202 CA B0 9 ae MOV FWAST—F IBBUF +F IBSW-DID+4(R10) ,NAMSW_DID+4(R7); copy did 
05 1 § 40$: SB 
14 A7 1C 00 «6€ 0 2c 0 1 50$: MOVCS #0,(SP),#0,4<16+6+6>, NAMST _DVI(R7) 
og 11 0 4 BRB 30 ; Zero dvi, fid, and did fields 


— — eee eee ed 


RM( 
v0 
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NAME 00 


4 
TRINGS 16-SEP-1984 00:27: AX/VMS Macro V04-00 
ete DVI field of NAM blo ado 18:30:08 LRNS SRCIRMONAMSTR. MAR: 1 
-SBTTL RMSWRITE_DVI, Write DVI field of NAM block 


or 


+ 
+ 


This routine writes the DVI field of the NAM block from 
the information stored in the FWA. 
The DVI field is the PPF device rt if this is a PPF; 
else it y Fe canoical device name of the form: 

_ddcuuuu 


Inputs: 


R10 = Address of FWA 
R7 = Address of user's NAM block 


Outputs: 


RO-R5 destroyed. 
The DVI field is written. 


RMSWRITE DVI:: 2 


PAAAAAAAAAAAAAOOSOAAAAASS mn 


io 
FRRAS SINS NNASSSSOOM edd dd ed dd dd a dd dg yd gs a | i ond 


05 
05 
05 
05 
05 
05 
05 
' 
53 14 9E 05 MOVAB NAMST_DVI(R7/),R3 3 ptr to destination 
OC AA 95 O05 TSTB FWASB_ESCFLG(R10) 3; is this a PPF file? 
13. (05 BEQL 10$ 3; branch if not 
057 
057 3 
B25 ; If PPF, put special name in DVI 
057 2 
50 OO0E0 CA 7d 057 MOVa FWASQ_DEVICE(R10) ,RO ; length/addr of name 
10 +11 837 BRB 20$ 
50 0190 CA 7D b25 10$: mova FWASQ_ SHRFIL(R10) ,RO : Lenggh/eddr of string 
05 008C C9 = «06 1 57 BBC #DEVS0_SPL,IFBSL_AS DEV(RO) ,2 $ ; ok if not spooled 
50 O1A0 CA D B28 MOVa FWASQ_AS_SHRFIL(R10),RO ; use secondary name if spooled 
OF 50 861 $38 208: CMPW RO,#15 3; room for count field and name? 
08 1A 058 BGTRU 30$ ; nope 
8§ 50 90 058 MOVB_. RO,(R3)+ ; stuff count (for counted string) 
63 61 50 se 58 MOVC3 RO,(R1),(R3) 3; Copy name past count field 
63 9% 823 30$: CLRB (R3) 3; say no DVI field 
05 059 RSB 


RM( 
vO! 
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$f 113? ~SBTTL RMSCHKNAM, Check NAM Block Validity 
7 1195 54+ 

97 1138 3 
4 3 ; Subroutine to verify that R7 really points to an accessible Name Block. 
235 1198 : Inputs: 
23! 1 39 s 
97 1201; R7 NAM block address 
597 1 8¢ ; 

0:97 } 04 ; Outputs: 
597 1205 ; If an error occurs, RO is set to the error code. 

B23! 1 88 3 
597 1207 ;-- 

0597 1208 

B23F 1209 
597 1210 ASSUME NAM$B_BLN EQ NAM$B_BID+1 

0597 1211 

0597 1 1 RMSCHKNAM: : 

0597 121 IFNORD #NAM$B_BLN+1,(R7),ERRNAM; Branch if BID and BLN not readable 

02 67 91 #O59D 1214 CMPB NAM$B BID(R75 ,ANAMSC_BID; Right ID? 
13. 12 OSAO 1215 BNEQ ERRNA : Branch if not 
50 01A7 QA QSA2 1216 MOVZBL NAM$B_BLN(R7),RO 3; Get user specified size 
38 48650 691 O5A6 1217 CMPB RO, #NAMSC_BLN_V2 3 Long enough (version 2 size)? 
OA 1F Q5A9 1218 BLSSU _ ERRNAM ; Branch if not Long enough 
QOSAB 1219 IFNOWRT RO, (R7),ERRNAM ; Branch if not writeable 
0581 1220 RMSSUC ; Success 
05 0584 1 $3 RSB : 

0585 1 ; 

0585 1223 ERRNAM: 

0585 1 $e RMSERR NAM ; Show problem 

05 OSBA 1225 RSB 3 
058B 1226 
05BB 1227 .END 


| 
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tg skeet paar tide ene Bases 90335 568 LRMS SRCIRMONAMSTR MAR; 1 ae fl) 
= FWASV_QUOTED : 1A 
SSansicore = 88 6 at FWASV-REMRESULT = 0090035 
$SRMS_PBUGCHK = ; 010 FWASV-ROOT_DIR : 003A 
SSRMS ~TBUGCHK = 0000 FWASVSL_PASS = 000 002 
pease: : Ss HOR TEBE = 9000 005 | 
; 9 1 1FBSB_MODE = 0000000A | 
COPY"DIR Sooopee 4 8 IFBSL-AS_DEV = 000 008C 
COPY" DVI 0000 OAD R 1 IFBSL-NWA_PTR = 0000003C¢ 
COPY “NAME $00019 R 61 IFBSL~PRIM_DEV = 000 9006 
COPY “NODE §0000239 01 LOGEC PROCESS = 9000002 P 7 
Copy RERRESULT ec, _$990080 A 
DEV$0_FOR = fi = 
* = = 00000001 
he “HS, gt : HSssie 
yy oat ae : Bae 
ERRSA h = 
AM = 00000038 
ER TT ERR Mattos 4 4 WARSO NORE = 00000038 | 
EXIT~SUC QO0001FA R 01 NAM$B~NO = 00000008 
EXPARGL 00000514 R 01 NAMSB-RFS = 00000009 | 
EX SU 00000388 R 01 NAMSB~RSL = 00000003 
FABSi_FOP = 00000004 NAMSB"R = 90000002 | 
pot : se Tay : BESS 
TBSubID 2 tener NAMSC "BID = 00000002 | 
FIBSW7FID = 00000004 NAMSC~ = 00000060 
FOP ~ = 00000020 NAM$C-BLN_V2 = 00000038 
FSCBSV_ACS = 00000012 NAMSL_DEV™ = 00000044 
FSCBSV~ELIPS = 00000010 NAMSL “DIR = 00000048 | 
uAse-Pecreen : a900900¢ ete = 90000086 | 
FWA L = .! = 
~ . AM = 0000004C 
WA ~SUBNODNT = 000000 NARBL NODE . 90000040 
FuasancoTni we = Bo0N00F NAMSL~TYPE = 00000050 
FWASQ_CDIR8 = 90000428 NAMSL_V = 00000054 
FWASQ” CONCEAL_DEV = 90000068 NANSS-DIR_LVLS : 90000005 
PuASGnDaRAc” = 09000180 NAMSV~DIR_LVLS = 00000015 | 
FWASQ~NAME = 60000170 NANSV-NOCONCEAL : 90000004 | 
FUASO-QUDTED 2 09000170 NANSV“WILD_SFD1 : 9090019 | 
FuASS-DIRILVLS = B90u00s NORE acy = Op90a0e8 
SUSY CONCEAL DEV : 80 8089 NWASB~DAP_ RAC 90000c9 
FWASV_DEVICE ~ = 0000 F NWASB_FILESYS 00000C5 
FWASV_DI z 0 00 OF NWASB_KEYXABCNT 0000110 
FWASVDIR_LVLS : 80 ist NWASB-NETSTRSIZ 00 016 | 
FWASV-EXP~ROOT = 090003¢ NWA$B-NODBUF SIZ 000168 
FWASV_GRPABR = 0018 “ORG $ cS 
FWASV-NAM_DVI = 000 0 NWASB-OSTYPE o0c4 
FWASV-NETSTR s 0 NWASB-RFM 0 00C7 | 
FWASV~NODE : 1 NWASB-RMS_RAC 


RMONAMSTR 
Symbol table 


NWASC_BLN 
NWASK_BLN 
NWASL_~ALLXABADR 
NWASL_DATXABADR 
NWASL_DEV 
NWASL_FHCXABADR 
NWASL_KEYXABADR 


NWASL-XLTATTR 
NWASL—XLTBUFFLG 
NWASL-XLTCNT 


N 
NWASL —XL TMAXINDX 
NWASL-XLTSIZ 

NWA S 


NWASQ_RCV 
NWASQ_ SAVE DESC 
NWASQ” XLTBOF 1 


Ni 
NWAST_INODEBUF 
NWAST_ITM_ATIR 


NWAST_NODEBUF 


NWAST-RCVBUF 
NWAST~SCAN 


NWASW JNLRABJOP 
PARSE —REMRE SULT 
POPPC 
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RMS .SRCJRMONAMSTR.MAR; 1 ( | 
905 

FO R 1 
i} R 1 
435 R 1 | 

bac8 R 01 

E7 R 01 

044D R 01 

be8s R 01 
597 RG 01 

Bee RG 01 

0519 RG 01 

O4AE RG 4 

teeter 1 

reek 01 

0567 RG 01 

8404 

85D0C 

8694 

869C 

0020 

0470 R 01 

kare GX 01 

0388 R 01 

0475 R 01 
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RMONAMSTR 
Psect synopsis 


RETURN FILENAME STRINGS Tense 198e 90:50:48 


PSECT name Allocation PSECT No. Attributes 

_ OS « 00000000 <¢ 9.) 0 . 0.) NOPIC “USR CON ABS LCL 

RMSRMSO 000005BB ( 1467.) 01 ¢ 1.) PIC USR CON REL GBL NOSH 

SABSS 00000800 ( 2048.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD 
fowmem ease rr arse nr eos ees eS 
; Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 

Initialization 3 00:00:00.11 00:00:00.56 

Command processing 1 ¢ B82 99 399-88 88 #80 298-3 

Pass 1 43 00:00:1 $8 00:00:50.7 

syabol table sort 0 00:00:02.30 4 SS ee 

s2 216 00:00:04.11 0:00:14.99 

SF table output 24 00:00:00.15 00:00:00.36 

Psect synopsis output 3 es fo 3 00:00:00.09 

Cross-reference output 00:00:00.0 00:00:00.00 

Assembler run totals 848 00:00:24.81 00:01:18.01 


The working set Limit was 1950 pages. 

97445 bytes (191 pages) of virtual memory were used to buffer she intermediate code. 

There were 90 pages of symbol table space toy a to hold 1632 non-local and 62 local symbols. 
1227 source Lines were read in Pass 1, produci ng! 6 object records in Pass 2. 

33 pages of virtual memory were used to define 32 macros. 


peweweecoceseeeecccoccocess} 


Macro Library name 


'$ SSSDUA thevesoes - “EH 1 14 
S52 p8DUA MLB; 1 4 
FSySi GBISTARLET. MLB; 2 10 

wars att: Libraries) 28 


1802 GETS were required to define 28 macros. 
There were no errors, warnings or irformation messages. 
MACRO/LIS=L1S$:RMONAMSTR/OBJ=0BJ$:RMONAMSTR MSRC$:RMONAMSTR/UPDATE=(ENHS: RMONAMSTR) +EXECMLS/LIB+LIB$:RMS/LIB 


AX/VMS Macro Vv04-00 
RMS.SRCJRMONAMSTR.MAR; 1 


ae is 


NOSHR NOEXE NORD pe eee NOVEC BYTE 
HR EXE RD NOWR 


T NOVEC BYTE 


WRT NOVEC BYTE 


RMO! 


PR tie a CORPORATION 
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